object frmCuenta: TfrmCuenta
  Left = 500
  Top = 115
  Width = 366
  Height = 298
  Caption = 'Alta/Modificaci'#243'n de Cuentas'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 123
    Width = 358
    Height = 4
    Cursor = crVSplit
    Align = alTop
    Color = 6579300
    ParentColor = False
  end
  object pnlBancos: TPanel
    Left = 0
    Top = 0
    Width = 358
    Height = 123
    Align = alTop
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = 9017771
    TabOrder = 0
    DesignSize = (
      358
      123)
    object Label3: TLabel
      Left = 225
      Top = 10
      Width = 33
      Height = 13
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = 'Filtro:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object grdBanco: TRxDBGrid
      Left = 5
      Top = 29
      Width = 348
      Height = 88
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataSource = sBanco
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = grdBancoCellClick
      OnTitleClick = grdBancoTitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'BANCO'
          Title.Alignment = taCenter
          Title.Caption = 'Banco'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SUCURSAL'
          Title.Alignment = taCenter
          Title.Caption = 'Sucursal'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 157
          Visible = True
        end>
    end
    object btnBanco: TBitBtn
      Left = 9
      Top = 4
      Width = 120
      Height = 23
      Caption = 'Nuevo Banco...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = btnBancoClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
        3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
        B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
        33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
        000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
        033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
        BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
        33B33733333773333373B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object filtroExtra: TEdit
      Left = 260
      Top = 6
      Width = 93
      Height = 21
      Hint = 'Ingrese el texto por el cual se filtrar'#225' y presione ENTER'
      Anchors = [akTop, akRight]
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnChange = filtroExtraChange
    end
  end
  object pnlCuentas: TPanel
    Left = 0
    Top = 127
    Width = 358
    Height = 141
    Align = alClient
    TabOrder = 1
    DesignSize = (
      358
      141)
    object DBNavigator1: TDBNavigator
      Left = 7
      Top = 113
      Width = 342
      Height = 25
      DataSource = sCuenta
      VisibleButtons = [nbPrior, nbNext, nbInsert, nbDelete, nbPost, nbCancel]
      Anchors = [akLeft, akBottom]
      ConfirmDelete = False
      TabOrder = 0
    end
    object grdCuenta: TRxDBGrid
      Left = 5
      Top = 5
      Width = 348
      Height = 105
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataSource = sCuenta
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnKeyPress = grdCuentaKeyPress
      OnTitleClick = grdBancoTitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'CUENTA'
          Title.Alignment = taCenter
          Title.Caption = 'Cuenta N'#186
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CBU'
          Title.Alignment = taCenter
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 155
          Visible = True
        end>
    end
  end
  object cdsBanco: TSQLClientDataSet
    CommandText = 
      'select ID_BANCO, BANCO, SUCURSAL||'#39' ('#39'||LOCALIDAD.LOCALIDAD||'#39')'#39 +
      ' SUCURSAL'#13#10'FROM'#13#10'  BANCO INNER JOIN LOCALIDAD ON (BANCO.ID_LOCAL' +
      'IDAD = LOCALIDAD.ID_LOCALIDAD)'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = Datos.Con
    Left = 160
    Top = 40
    object cdsBancoID_BANCO: TSmallintField
      FieldName = 'ID_BANCO'
      Required = True
    end
    object cdsBancoBANCO: TStringField
      FieldName = 'BANCO'
      Required = True
      Size = 50
    end
    object cdsBancoSUCURSAL: TStringField
      FieldName = 'SUCURSAL'
      Size = 50
    end
  end
  object sBanco: TDataSource
    DataSet = cdsBanco
    OnDataChange = sBancoDataChange
    Left = 192
    Top = 40
  end
  object PopupMenu1: TPopupMenu
    Left = 224
    Top = 40
    object NuevaCuenta1: TMenuItem
      Caption = 'Nueva Cuenta...'
    end
  end
  object cdsCuenta: TSQLClientDataSet
    CommandText = 
      'select ID_CUENTA, CUENTA, CBU, ID_BANCO from CUENTA'#13#10'where ID_BA' +
      'NCO = :id'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftSmallint
        Name = 'id'
        ParamType = ptInput
      end>
    AfterEdit = cdsCuentaAfterPost
    AfterPost = cdsCuentaAfterPost
    BeforeDelete = cdsCuentaBeforeDelete
    AfterDelete = cdsCuentaAfterPost
    OnNewRecord = cdsCuentaNewRecord
    DBConnection = Datos.Con
    Left = 160
    Top = 176
    object cdsCuentaID_CUENTA: TSmallintField
      FieldName = 'ID_CUENTA'
      Required = True
    end
    object cdsCuentaCBU: TStringField
      DisplayWidth = 30
      FieldName = 'CBU'
      Required = True
      Size = 30
    end
    object cdsCuentaID_BANCO: TSmallintField
      FieldName = 'ID_BANCO'
      Required = True
    end
    object cdsCuentaCUENTA: TStringField
      FieldName = 'CUENTA'
      Required = True
    end
  end
  object sCuenta: TDataSource
    DataSet = cdsCuenta
    Left = 192
    Top = 176
  end
end
